00010		TITLE PREAD
00020		SUBTTL POTREAD VIA SPCWAR
00030		ENTRY PREAD
00040		OPDEF SPCWAR [ XWD 043000,0 ]
00050	PREAD:	JUMP 0
00060		MOVEI 0,A
00070		BLT 0,A+16
00080		HRLI 16,0
00090		MOVE 0,@16
00100		HRRM 0,ADR#
00110	MAIN:	SETOM DTST#
00120		SETOM ERR#
00130		SPCWAR 1,DRD
00140		SKIPE DTST
00150		JRST .-1
00160		SPCWAR 0,636367
00170		SKIPN ERR
00180		CALL [ SIXBIT/EXIT/ ]
00190		MOVSI 16,A
00200		BLT 16,16
00210	EX:	JRA 16,1(16)
00220	DRD:	SKIPN DTST
00230		HALT
00240		MOVE 17,ADR
00250		JSP 2,POTRD
00260		SETZM ERR
00270		SETZM DTST
00280		HALT
00290	POTRD:	MOVEI 15,100
00300		MOVEM 15,MCH#
00310		MOVEM 15,MCH1#
00320		CONO 424,4000
00330		CONO PI,400
00340		CONI 204,SAVE1#
00350		LDB 10,[ POINT 3,SAVE1,35]
00360		MOVEI 11,100
00370		MOVNS 10
00380		LSH 11,1(10)
00390		ANDI 11,177
00400		MOVEM 11,SAVE2#
00410		CONO PI,1000(11)
00420		CONO PI,200
00430		MOVEI 11,↑D15
00440	L1:	CONI 204,10
00450		XORI 10,3000
00460		TRNE 10,3000
00470		SOJG 11,L1
00480		CONI 204,SAVE1
00490	TA:	SETZM 16
00500		MOVE 13,IWD
00510		CONO 204,004250
00520	RPT:	CONI 204,0
00530		CAIE 0,4250
00540		JRST COUNT3
00550		CONO 424,002000
00560	RDY:	MOVEI 14,100
00570	WT:	CONSO 204,1000
00580		JRST COUNT1
00590		BLKI 204,13
00600		AOJ 16,.+1
00610		CONSZ 204,10000
00620		JRST COUNT2
00630		JUMPE 16,RDY
00640		CONO 424,4000
00650		MOVEI 4,10
00660		MOVE 12,BP
00670	NB:	ILDB 3,12
00680		LSH 3,30
00690		ASH 3,-30
00700		ADDI 3,4000
00710		MOVEM 3,0(17)
00720		ADDI 17,1
00730		SOJN 4,NB
00740		AOS 2
00750	RET:	MOVE 10,SAVE1
00760		CONO 204,203000(10)
00770		MOVE 11,SAVE2
00780		CONO PI,2000(11)
00790		JRST 0(2)
00800	COUNT1:	SOSE 14
00810		JRST WT
00820		AOS ET1#
00830		JRST RET
00840	COUNT2:	SOSE 15
00850		JRST TA
00860		AOS ET2#
00870		JRST RET
00880	COUNT3:	SOSE MCH
00890		JRST RPT-1
00900		AOS ET3#
00910		JRST RET
00920	BP:	POINT 12,BUFF,
00930	A:	BLOCK 17
00940	IWD:	IOWD 3,BUFF
00950	BUFF:	BLOCK 3
00960		INTERNAL POTRD
00970		END